home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / quickg_1 / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-02-18  |  2.1 KB  |  82 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "User - ScaleMode example"
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   4155
  6.    ClientTop       =   2265
  7.    ClientWidth     =   3960
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3660
  10.    ScaleWidth      =   3960
  11.    Begin VB.PictureBox Picture1 
  12.       AutoSize        =   -1  'True
  13.       Height          =   1410
  14.       Left            =   120
  15.       Picture         =   "Form1.frx":0000
  16.       ScaleHeight     =   3
  17.       ScaleLeft       =   1
  18.       ScaleMode       =   0  'User
  19.       ScaleTop        =   1
  20.       ScaleWidth      =   3
  21.       TabIndex        =   0
  22.       Top             =   120
  23.       Width           =   1410
  24.       Begin VB.Shape Shape1 
  25.          FillColor       =   &H000000FF&
  26.          FillStyle       =   0  'Solid
  27.          Height          =   135
  28.          Left            =   0
  29.          Shape           =   1  'Square
  30.          Top             =   -15
  31.          Width           =   135
  32.       End
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   $"Form1.frx":1162
  36.       Height          =   1380
  37.       Left            =   135
  38.       TabIndex        =   1
  39.       Top             =   2100
  40.       Width           =   3705
  41.    End
  42. Attribute VB_Name = "Form1"
  43. Attribute VB_GlobalNameSpace = False
  44. Attribute VB_Creatable = False
  45. Attribute VB_PredeclaredId = True
  46. Attribute VB_Exposed = False
  47. Option Explicit
  48. 'This small sample is a simple but useful example
  49. 'With a little imagination, a VB hacker
  50. 'could build a variety of useful routines
  51. 'to exploit the principal.
  52. 'Nigel Taylor
  53. 'taypre@sympatico.ca
  54. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  55. Dim msg
  56. X = Int(X)
  57. Y = Int(Y)
  58. X = X & Y
  59. msg = " - " & X
  60. Shape1.Move Left(X, 1), Right(X, 1)
  61. Select Case X
  62. Case 11
  63. MsgBox "X" & msg
  64. Case 12
  65. MsgBox "O" & msg
  66. Case 13
  67. MsgBox "O" & msg
  68. Case 21
  69. MsgBox "O" & msg
  70. Case 22
  71. MsgBox "X" & msg
  72. Case 23
  73. MsgBox "O" & msg
  74. Case 31
  75. MsgBox "O" & msg
  76. Case 32
  77. MsgBox "O" & msg
  78. Case 33
  79. MsgBox "X" & msg
  80. End Select
  81. End Sub
  82.